home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo: Applications / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Personal Press 2.0 / PPPouch / Additions / Align Objects / Align tops / Align tops
Encoding:
Text File  |  1992-06-08  |  564 b   |  33 lines  |  [SGPA/SCPG]
  1. on startup
  2. if toolmode = "MainTool" then
  3. if selectedObjects() > 1 then
  4. alignThemObjects
  5. else
  6. answer "Select two or more objects to be aligned."
  7. end if
  8. else
  9. answer "The Arrow tool must be turned on."
  10. end if
  11. end startup
  12.  
  13. on alignThemObjects
  14. align to objects  none top
  15. end alignThemObjects
  16.  
  17. on help
  18.  
  19. put  dialog (preload, 128) into thedialog
  20. put "---a\0" into item2
  21. put "---a\1" into item3
  22. put "---a\2" into item4
  23.  
  24.  
  25. repeat forever
  26. get dialog(display, thedialog)
  27. if (it = 1) then exit repeat
  28. end repeat
  29. get dialog(dispose, thedialog)
  30.  
  31. end help
  32.  
  33.     ^<BÏ